home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Tools / EGALE / BEISPIEL / BEISPIE2.TXT < prev    next >
Encoding:
Text File  |  1995-09-26  |  609 b   |  36 lines
  1. FUNCTION wochentag$(d$)   ! Neu
  2.   DEFWRD "a-z"
  3.   '
  4.   LOCAL tag$,jahr,mon,tag,mo,jh,je,t
  5.   '
  6.   jahr=VAL(MID$(d$,7))
  7.   mon=VAL(MID$(d$,4,2))
  8.   tag=VAL(MID$(d$,1,2))
  9.   '
  10.   mo=mon-2
  11.   jh=jahr DIV 100
  12.   je=jahr MOD 100
  13.   IF mo<=0
  14.     ADD mo,12
  15.     DEC je
  16.   ENDIF
  17.   IF je<0
  18.     je=99
  19.     DEC jh
  20.   ENDIF
  21.   t=tag+INT(MUL(2.6,mo)-0.2)+je\4+je+(jh\4-MUL(2,jh))
  22.   WHILE t<0
  23.     ADD t,7
  24.   WEND
  25.   t=t MOD 7
  26.   RESTORE wochentage
  27.   tag$="Sonntag"
  28.   FOR i%=1 TO t
  29.     READ tag$
  30.   NEXT i%
  31.   RETURN tag$
  32. wochentage:
  33.   DATA Montag,Dienstag,Mittwoch,Donnerstag,Freitag,Samstag,Sonntag
  34. ENDFUNC
  35.  
  36.